home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 20 / 020.d81 / pps #46 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  65 lines
  1. 5 print"[147][144]":poke53281,1
  2. 6 forc=54272to54272+24:pokec,0:next
  3. 7 print"organ."
  4. 8 print"press keys.  z to , is one scale.           q to i is another."
  5. 9 print"  press '_' to exit to loadstar"
  6. 10 dim tbl(255,1) : s=54272
  7. 20 pokes+24,15: rem set volume
  8. 30 pokes+5,34: rem attack/decay
  9. 40 pokes+6,248: rem substain/release
  10. 45 :
  11. 46 poke650,255
  12. 47 hi=1:lo=0
  13. 50 for x=1to28
  14. 60 :  readi,tbl(i,hi),tbl(i,lo)
  15. 70 nextx
  16. 75 :
  17. 100 gosub1000:x=peek(197)
  18. 102 pokes+5,0:pokes+6,0
  19. 103 k=asc(k$)
  20. 105 iftbl(k,lo)=0then100
  21. 110 pokes+1,tbl(k,1):pokes+0,tbl(k,0)
  22. 115 pokes+5,34: rem attack/decay
  23. 116 pokes+6,248: rem substain/release
  24. 120 pokes+4,33
  25. 121 poke53281,k
  26. 125 ifpeek(197)=64then140
  27. 130 ifpeek(197)=xthen130
  28. 140 pokes+4,32:k$=""
  29. 150 :
  30. 160 goto100
  31. 170 data90,8,97
  32. 180 data88,9,104
  33. 190 data67,10,143
  34. 200 data86,11,48
  35. 210 data66,12,143
  36. 220 data78,14,24
  37. 230 data77,15,210
  38. 240 data44,16,195
  39. 250 data83,8,255
  40. 260 data68,9,247
  41. 265 data71,11,218
  42. 270 data72,13,78
  43. 280 data74,14,239
  44. 290 data76,17,195
  45. 300 data81,16,195
  46. 310 data87,18,209
  47. 320 data69,21,31
  48. 330 data82,22,96
  49. 340 data84,25,30
  50. 350 data89,28,49
  51. 360 data85,31,165
  52. 370 data73,33,135
  53. 380 data50,17,195
  54. 390 data51,19,239
  55. 400 data53,23,181
  56. 410 data54,26,152
  57. 420 data55,29,223
  58. 430 data57,35,134
  59. 1000 poke198,0:wait198,1:getk$:ifk$=""then1000
  60. 1002 ifk$="_"then60000
  61. 1010 return
  62. 50000 :
  63. 60000 rem return to loadstar
  64. 60010 load"hello connect",8
  65.